home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 42 / Tiger_Disk_042_1997-09_Tiger-Crew-Disk_de_Side_B.d64 / say it (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 10 rem -sayit-
  2. 20 print "[147]":print:print:print "do you want s[146]am or r[146]eciter"
  3. 30 get a$:if a$="" then 30
  4. 40 if a$="s" or a$="[211]" then:]sa:print:print:goto 100
  5. 50 if a$="r" or a$="[210]" then:]re:print:print:goto 100
  6. 60 goto 30
  7. 100 print "say:[146]";
  8. 110 sa$=""
  9. 120 get a$:if a$="" then 120
  10. 122 a=asc(a$):if a>132 and a<141 then 500
  11. 125 if asc(a$)=13 then sa$=t$:print:goto 200
  12. 126 sa$=a$:print a$;:if asc(a$)=20 then sa$="":goto 120
  13. 128 get a$:if a$="" then 128
  14. 130 print a$;:if asc(a$)=13 then 200
  15. 140 sa$=sa$+a$
  16. 150 if asc(a$)=20 then sa$=left$(sa$,len(sa$)-2)
  17. 160 goto 128
  18. 200 say sa$:]error:print:t$=sa$:goto 100
  19. 500 print "[147]":print "  change[146]":print:print:print"  r[146]eciter/sam[146]":print
  20. 510 print "  p[146]itch":print:print "  s[146]peed":print:print "  t[146]hroat"
  21. 520 print:print "  m[146]outh":print:print "  l[146]ights":print
  22. 530 print "  e[146]nd changes":print:print "  n[146]ormal voice"
  23. 540 print :print "  b[146]ack to basic"
  24. 600 get a$:if a$="" then 600
  25. 610 if a$="r" or a$="[210]" then 1000
  26. 620 if a$="p" or a$="[208]" then 1100
  27. 630 if a$="s" or a$="[211]" then 1200
  28. 640 if a$="t" or a$="[212]" then 1300
  29. 650 if a$="m" or a$="[205]" then 1400
  30. 660 if a$="l" or a$="[204]" then 1500
  31. 680 if a$="e" or a$="e" then print "[147]":print:print:goto 100
  32. 685 if a$="n"or a$="[206]" then 1600
  33. 690 if a$="b" or a$="[194]" then end
  34. 695 goto 600
  35. 1000 print:print "s[146]am or r[146]eciter";
  36. 1010 get a$:if a$="" then 1010
  37. 1020 if a$="s" or a$="[211]" then:]sa:goto 500
  38. 1030 if a$="r"or a$="[210]" then:]re:goto 500
  39. 1040 goto 1010
  40. 1100 print :print "p[146]itch = ";:input a
  41. 1110 if a<0 or a>255 then 1100
  42. 1120 poke 39439,a:goto 500
  43. 1200 print:print "s[146]peed = ";:input a
  44. 1210 if a<0 or a>255 then 1200
  45. 1220 poke 39438,a:goto 500
  46. 1300 print :print "t[146]hroat = ";:input a
  47. 1310 if a<0 or a>255 then 1300
  48. 1320 poke 38881,a:sys 38882:goto 500
  49. 1400 print :print "m[146]outh = ";:input a
  50. 1410 if a<0 or a>255 then 1400
  51. 1420 poke 38880,a:sys 38882:goto 500
  52. 1500 print:print "  lights   on[146]  of[146]f"
  53. 1510 get a$:if a$="" then 1510
  54. 1520 if a$="f" or a$="[198]" then:]li 0:goto 500
  55. 1530 if a$="n" or a$="[206]" then:]li 1:goto 500
  56. 1540 goto 1510
  57. 1600 ]pi 64:]sp 72:]kn 128,128:]li 0:goto 500
  58.